home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / GestaltEqu.p < prev    next >
Text File  |  1995-09-12  |  28KB  |  648 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 6:20:27 PM }
  2. {
  3.      File:        GestaltEqu.p
  4.  
  5.      Contains:    Gestalt Interfaces.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT GestaltEqu;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __GESTALTEQU__}
  26. {$SETC __GESTALTEQU__ := 1}
  27.  
  28.   USES
  29.    ConditionalMacros, Types, MixedMode;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34.  
  35. CONST
  36.     gestaltAddressingModeAttr    = 'addr';                        { addressing mode attributes }
  37.     gestalt32BitAddressing        = 0;                            { using 32-bit addressing mode }
  38.     gestalt32BitSysZone            = 1;                            { 32-bit compatible system zone }
  39.     gestalt32BitCapable            = 2;                            { Machine is 32-bit capable }
  40.  
  41.     gestaltAliasMgrAttr            = 'alis';                        { Alias Mgr Attributes }
  42.     gestaltAliasMgrPresent        = 0;                            { True if the Alias Mgr is present }
  43.     gestaltAliasMgrSupportsRemoteAppletalk = 1;                    { True if the Alias Mgr knows about Remote Appletalk }
  44.  
  45.     gestaltAppleTalkVersion        = 'atlk';
  46.  
  47.     gestaltAUXVersion            = 'a/ux';
  48.  
  49.     gestaltCloseViewAttr        = 'BSDa';                        { CloseView attributes }
  50.     gestaltCloseViewEnabled        = 0;                            { Closeview enabled (dynamic bit - returns current state) }
  51.     gestaltCloseViewDisplayMgrFriendly = 1;                        { Closeview compatible with Display Manager (FUTURE) }
  52.  
  53.     gestaltCFMAttr                = 'cfrg';                        { returns information about the Code Fragment Manager }
  54.     gestaltCFMPresent            = 0;                            { true if the Code Fragment Manager is present }
  55.  
  56.     gestaltColorMatchingAttr    = 'cmta';                        { ColorSync attributes }
  57.     gestaltHighLevelMatching    = 0;
  58.     gestaltColorMatchingLibLoaded = 1;
  59.  
  60.     gestaltColorMatchingVersion    = 'cmtc';
  61.     gestaltColorSync10            = $0100;                        { 0x0100 & 0x0110 _Gestalt versions for 1.0-1.0.3 product }
  62.     gestaltColorSync11            = $0110;                        {   0x0100 == low-level matching only }
  63.     gestaltColorSync104            = $0104;                        { Real version, by popular demand }
  64.     gestaltColorSync105            = $0105;
  65.  
  66.     gestaltConnMgrAttr            = 'conn';                        { connection mgr attributes    }
  67.     gestaltConnMgrPresent        = 0;
  68.     gestaltConnMgrCMSearchFix    = 1;                            { Fix to CMAddSearch?     }
  69.     gestaltConnMgrErrorString    = 2;                            { has CMGetErrorString() }
  70.     gestaltConnMgrMultiAsyncIO    = 3;                            { CMNewIOPB, CMDisposeIOPB, CMPBRead, CMPBWrite, CMPBIOKill }
  71.  
  72.     gestaltComponentMgr            = 'cpnt';
  73.  
  74.     gestaltColorPickerVersion    = 'cpkr';                        { returns version of ColorPicker }
  75.     gestaltColorPicker            = 'cpkr';
  76.  
  77.     gestaltNativeCPUtype        = 'cput';                        { Native CPU type                                       }
  78.     gestaltCPU68000                = 1;                            { Various 68k CPUs...     }
  79.     gestaltCPU68010                = 2;
  80.     gestaltCPU68020                = 3;
  81.     gestaltCPU68030                = 4;
  82.     gestaltCPU68040                = 5;
  83.     gestaltCPU601                = $101;                            { IBM 601                                                 }
  84.     gestaltCPU603                = $103;
  85.     gestaltCPU604                = $104;
  86.  
  87.     gestaltCRMAttr                = 'crm ';                        { comm resource mgr attributes }
  88.     gestaltCRMPresent            = 0;
  89.     gestaltCRMPersistentFix        = 1;                            { fix for persistent tools }
  90.     gestaltCRMToolRsrcCalls        = 2;                            { has CRMGetToolResource/ReleaseToolResource }
  91.  
  92.     gestaltControlStripVersion    = 'csvr';
  93.  
  94.     gestaltCTBVersion            = 'ctbv';
  95.  
  96.     gestaltDBAccessMgrAttr        = 'dbac';                        { Database Access Mgr attributes }
  97.     gestaltDBAccessMgrPresent    = 0;                            { True if Database Access Mgr present }
  98.  
  99.     gestaltDictionaryMgrAttr    = 'dict';                        { Dictionary Manager attributes }
  100.     gestaltDictionaryMgrPresent    = 0;                            { Dictionary Manager attributes }
  101.  
  102.     gestaltDITLExtAttr            = 'ditl';                        { AppenDITL, etc. calls from CTB }
  103.     gestaltDITLExtPresent        = 0;                            { True if calls are present }
  104.  
  105.     gestaltDisplayMgrAttr        = 'dply';                        { Display Manager attributes }
  106.     gestaltDisplayMgrPresent    = 0;                            { True if Display Mgr is present }
  107.     gestaltDisplayMgrCanSwitchMirrored = 2;                        { True if Display Mgr can switch modes on mirrored displays }
  108.     gestaltDisplayMgrSetDepthNotifies = 3;                        { True SetDepth generates displays mgr notification }
  109.  
  110.     gestaltDisplayMgrVers        = 'dplv';
  111.  
  112.     gestaltDragMgrAttr            = 'drag';                        { Drag Manager attributes }
  113.     gestaltDragMgrPresent        = 0;                            { Drag Manager is present }
  114.     gestaltDragMgrFloatingWind    = 1;                            { Drag Manager supports floating windows }
  115.     gestaltPPCDragLibPresent    = 2;                            { Drag Manager PPC DragLib is present }
  116.  
  117.     gestaltEasyAccessAttr        = 'easy';                        { Easy Access attributes }
  118.     gestaltEasyAccessOff        = 0;                            { if Easy Access present, but off (no icon) }
  119.     gestaltEasyAccessOn            = 1;                            { if Easy Access "On" }
  120.     gestaltEasyAccessSticky        = 2;                            { if Easy Access "Sticky" }
  121.     gestaltEasyAccessLocked        = 3;                            { if Easy Access "Locked" }
  122.  
  123.     gestaltEditionMgrAttr        = 'edtn';                        { Edition Mgr attributes }
  124.     gestaltEditionMgrPresent    = 0;                            { True if Edition Mgr present }
  125.     gestaltEditionMgrTranslationAware = 1;                        { True if edition manager is translation manager aware }
  126.  
  127.     gestaltAppleEventsAttr        = 'evnt';                        { Apple Events attributes }
  128.     gestaltAppleEventsPresent    = 0;                            { True if Apple Events present }
  129.     gestaltScriptingSupport        = 1;
  130.     gestaltOSLInSystem            = 2;                            { OSL is in system so don’t use the one linked in to app }
  131.  
  132.     gestaltFinderAttr            = 'fndr';                        { Finder attributes }
  133.     gestaltFinderDropEvent        = 0;                            { Finder recognizes drop event }
  134.     gestaltFinderMagicPlacement    = 1;                            { Finder supports magic icon placement }
  135.     gestaltFinderCallsAEProcess    = 2;                            { Finder calls AEProcessAppleEvent }
  136.     gestaltOSLCompliantFinder    = 3;                            { Finder is scriptable and recordable }
  137.     gestaltFinderSupports4GBVolumes = 4;                        { Finder correctly handles 4GB volumes }
  138.     gestaltFinderHasClippings    = 6;                            { Finder supports Drag Manager clipping files }
  139.  
  140.     gestaltFindFolderAttr        = 'fold';                        { Folder Mgr attributes }
  141.     gestaltFindFolderPresent    = 0;                            { True if Folder Mgr present }
  142.  
  143.     gestaltFontMgrAttr            = 'font';                        { Font Mgr attributes }
  144.     gestaltOutlineFonts            = 0;                            { True if Outline Fonts supported }
  145.  
  146.     gestaltFPUType                = 'fpu ';                        { fpu type }
  147.     gestaltNoFPU                = 0;                            { no FPU }
  148.     gestalt68881                = 1;                            { 68881 FPU }
  149.     gestalt68882                = 2;                            { 68882 FPU }
  150.     gestalt68040FPU                = 3;                            { 68040 built-in FPU }
  151.  
  152.     gestaltFSAttr                = 'fs  ';                        { file system attributes }
  153.     gestaltFullExtFSDispatching    = 0;                            { has really cool new HFSDispatch dispatcher }
  154.     gestaltHasFSSpecCalls        = 1;                            { has FSSpec calls }
  155.     gestaltHasFileSystemManager    = 2;                            { has a file system manager }
  156.     gestaltFSMDoesDynamicLoad    = 3;                            { file system manager supports dynamic loading }
  157.     gestaltFSSupports4GBVols    = 4;                            { file system supports 4 gigabyte volumes }
  158.     gestaltFSSupports2TBVols    = 5;                            { file system supports 2 terabyte volumes }
  159.     gestaltHasExtendedDiskInit    = 6;                            { has extended Disk Initialization calls }
  160.  
  161. {$IFC NOT OLDROUTINELOCATIONS }
  162.     gestaltFSMVersion            = 'fsm ';
  163.  
  164. {$ENDC}
  165.     gestaltFXfrMgrAttr            = 'fxfr';                        { file transfer manager attributes }
  166.     gestaltFXfrMgrPresent        = 0;
  167.     gestaltFXfrMgrMultiFile        = 1;                            { supports FTSend and FTReceive }
  168.     gestaltFXfrMgrErrorString    = 2;                            { supports FTGetErrorString }
  169.  
  170.     gestaltGraphicsAttr            = 'gfxa';                        { Quickdraw GX attributes selector }
  171.     gestaltGraphicsIsDebugging    = $00000001;
  172.     gestaltGraphicsIsLoaded        = $00000002;
  173.     gestaltGraphicsIsPowerPC    = $00000004;
  174.  
  175.     gestaltGraphicsVersion        = 'grfx';                        { Quickdraw GX version selector }
  176.     gestaltCurrentGraphicsVersion = $00010000;                    { the version described in this set of headers }
  177.  
  178.     gestaltHardwareAttr            = 'hdwr';                        { hardware attributes }
  179.     gestaltHasVIA1                = 0;                            { VIA1 exists }
  180.     gestaltHasVIA2                = 1;                            { VIA2 exists }
  181.     gestaltHasASC                = 3;                            { Apple Sound Chip exists }
  182.     gestaltHasSCC                = 4;                            { SCC exists }
  183.     gestaltHasSCSI                = 7;                            { SCSI exists }
  184.     gestaltHasSoftPowerOff        = 19;                            { Capable of software power off }
  185.     gestaltHasSCSI961            = 21;                            { 53C96 SCSI controller on internal bus }
  186.     gestaltHasSCSI962            = 22;                            { 53C96 SCSI controller on external bus }
  187.     gestaltHasUniversalROM        = 24;                            { Do we have a Universal ROM? }
  188.     gestaltHasEnhancedLtalk        = 30;                            { Do we have Enhanced LocalTalk? }
  189.  
  190.     gestaltHelpMgrAttr            = 'help';                        { Help Mgr Attributes }
  191.     gestaltHelpMgrPresent        = 0;                            { true if help mgr is present }
  192.     gestaltHelpMgrExtensions    = 1;                            { true if help mgr extensions are installed }
  193.  
  194.     gestaltCompressionMgr        = 'icmp';
  195.  
  196.     gestaltIconUtilitiesAttr    = 'icon';                        { Icon Utilities attributes  (Note: available in System 7.0, despite gestalt) }
  197.     gestaltIconUtilitiesPresent    = 0;                            { true if icon utilities are present }
  198.  
  199.     gestaltKeyboardType            = 'kbd ';                        { keyboard type }
  200.     gestaltMacKbd                = 1;
  201.     gestaltMacAndPad            = 2;
  202.     gestaltMacPlusKbd            = 3;
  203.     gestaltExtADBKbd            = 4;
  204.     gestaltStdADBKbd            = 5;
  205.     gestaltPrtblADBKbd            = 6;
  206.     gestaltPrtblISOKbd            = 7;
  207.     gestaltStdISOADBKbd            = 8;
  208.     gestaltExtISOADBKbd            = 9;
  209.     gestaltADBKbdII                = 10;
  210.     gestaltADBISOKbdII            = 11;
  211.     gestaltPwrBookADBKbd        = 12;
  212.     gestaltPwrBookISOADBKbd        = 13;
  213.     gestaltAppleAdjustKeypad    = 14;
  214.     gestaltAppleAdjustADBKbd    = 15;
  215.     gestaltAppleAdjustISOKbd    = 16;
  216.     gestaltJapanAdjustADBKbd    = 17;                            { Japan Adjustable Keyboard }
  217.     gestaltPwrBkExtISOKbd        = 20;                            { PowerBook Extended International Keyboard with function keys }
  218.     gestaltPwrBkExtJISKbd        = 21;                            { PowerBook Extended Japanese Keyboard with function keys         }
  219.     gestaltPwrBkExtADBKbd        = 24;                            { PowerBook Extended Domestic Keyboard with function keys         }
  220.  
  221.     gestaltLowMemorySize        = 'lmem';
  222.  
  223.     gestaltLogicalRAMSize        = 'lram';
  224.  
  225.     gestaltMachineType            = 'mach';                        { machine type }
  226.     gestaltClassic                = 1;
  227.     gestaltMacXL                = 2;
  228.     gestaltMac512KE                = 3;
  229.     gestaltMacPlus                = 4;
  230.     gestaltMacSE                = 5;
  231.     gestaltMacII                = 6;
  232.     gestaltMacIIx                = 7;
  233.     gestaltMacIIcx                = 8;
  234.     gestaltMacSE030                = 9;
  235.     gestaltPortable                = 10;
  236.     gestaltMacIIci                = 11;
  237.     gestaltMacIIfx                = 13;
  238.     gestaltMacClassic            = 17;
  239.     gestaltMacIIsi                = 18;
  240.     gestaltMacLC                = 19;
  241.     gestaltQuadra900            = 20;
  242.     gestaltPowerBook170            = 21;
  243.     gestaltQuadra700            = 22;
  244.     gestaltClassicII            = 23;
  245.     gestaltPowerBook100            = 24;
  246.     gestaltPowerBook140            = 25;
  247.     gestaltQuadra950            = 26;
  248.     gestaltMacLCIII                = 27;
  249.     gestaltPerforma450            = gestaltMacLCIII;
  250.     gestaltPowerBookDuo210        = 29;
  251.     gestaltMacCentris650        = 30;
  252.     gestaltPowerBookDuo230        = 32;
  253.     gestaltPowerBook180            = 33;
  254.     gestaltPowerBook160            = 34;
  255.     gestaltMacQuadra800            = 35;
  256.     gestaltMacQuadra650            = 36;
  257.     gestaltMacLCII                = 37;
  258.     gestaltPowerBookDuo250        = 38;
  259.     gestaltAWS9150_80            = 39;
  260.     gestaltPowerMac8100_110        = 40;
  261.     gestaltAWS8150_110            = gestaltPowerMac8100_110;
  262.     gestaltMacIIvi                = 44;
  263.     gestaltMacIIvm                = 45;
  264.     gestaltPerforma600            = gestaltMacIIvm;
  265.     gestaltPowerMac7100_80        = 47;
  266.     gestaltMacIIvx                = 48;
  267.     gestaltMacColorClassic        = 49;
  268.     gestaltPerforma250            = gestaltMacColorClassic;
  269.     gestaltPowerBook165c        = 50;
  270.     gestaltMacCentris610        = 52;
  271.     gestaltMacQuadra610            = 53;
  272.     gestaltPowerBook145            = 54;
  273.     gestaltPowerMac8100_100        = 55;
  274.     gestaltMacLC520                = 56;
  275.     gestaltAWS9150_120            = 57;
  276.     gestaltMacCentris660AV        = 60;
  277.     gestaltPerforma46x            = 62;
  278.     gestaltPowerMac8100_80        = 65;
  279.     gestaltAWS8150_80            = gestaltPowerMac8100_80;
  280.     gestaltPowerBook180c        = 71;
  281.     gestaltPowerMac6100_60        = 75;
  282.     gestaltAWS6150_60            = gestaltPowerMac6100_60;
  283.     gestaltPowerBookDuo270c        = 77;
  284.     gestaltMacQuadra840AV        = 78;
  285.     gestaltPerforma550            = 80;
  286.     gestaltPowerBook165            = 84;
  287.     gestaltMacTV                = 88;
  288.     gestaltMacLC475                = 89;
  289.     gestaltPerforma47x            = gestaltMacLC475;
  290.     gestaltMacLC575                = 92;
  291.     gestaltMacQuadra605            = 94;
  292.     gestaltQuadra630            = 98;
  293.     gestaltPowerMac6100_66        = 100;
  294.     gestaltAWS6150_66            = gestaltPowerMac6100_66;
  295.     gestaltPowerBookDuo280        = 102;
  296.     gestaltPowerBookDuo280c        = 103;
  297.     gestaltPowerMac7100_66        = 112;                            { Power Macintosh 7100/66 }
  298.     gestaltPowerBook150            = 115;
  299.  
  300.     kMachineNameStrID            = -16395;
  301.  
  302.     gestaltMachineIcon            = 'micn';
  303.  
  304.     gestaltMiscAttr                = 'misc';                        { miscellaneous attributes }
  305.     gestaltScrollingThrottle    = 0;                            { true if scrolling throttle on }
  306.     gestaltSquareMenuBar        = 2;                            { true if menu bar is square }
  307.  
  308. {
  309.     The name gestaltMixedModeVersion for the 'mixd' selector is semantically incorrect.
  310.     The same selector has been renamed gestaltMixedModeAttr to properly reflect the
  311.     Inside Mac: PowerPC System Software documentation.  The gestaltMixedModeVersion
  312.     symbol has been preserved only for backwards compatibility.
  313.  
  314.     Developers are forewarned that gestaltMixedModeVersion has a limited lifespan and
  315.     will be removed in a future release of the Interfaces.
  316.  
  317.     For the first version of Mixed Mode, both meanings of the 'mixd' selector are
  318.     functionally identical.  They both return 0x00000001.  In subsequent versions
  319.     of Mixed Mode, however, the 'mixd' selector will not respond with an increasing
  320.     version number, but rather, with 32 attribute bits with various meanings.
  321. }
  322.     gestaltMixedModeVersion        = 'mixd';
  323.  
  324.     gestaltMixedModeAttr        = 'mixd';                        { returns Mixed Mode attributes }
  325.     gestaltPowerPCAware            = 0;                            { true if Mixed Mode Manager supports PowerPC }
  326.  
  327.     gestaltMMUType                = 'mmu ';                        { mmu type }
  328.     gestaltNoMMU                = 0;                            { no MMU }
  329.     gestaltAMU                    = 1;                            { address management unit }
  330.     gestalt68851                = 2;                            { 68851 PMMU }
  331.     gestalt68030MMU                = 3;                            { 68030 built-in MMU }
  332.     gestalt68040MMU                = 4;                            { 68040 built-in MMU }
  333.     gestaltEMMU1                = 5;                            { Emulated MMU type 1  }
  334.  
  335.     gestaltStdNBPAttr            = 'nlup';                        { standard nbp attributes }
  336.     gestaltStdNBPPresent        = 0;
  337.  
  338.     gestaltNotificationMgrAttr    = 'nmgr';                        { notification manager attributes }
  339.     gestaltNotificationPresent    = 0;                            { notification manager exists }
  340.  
  341.     gestaltNameRegistryVersion    = 'nreg';
  342.  
  343.     gestaltNuBusSlotCount        = 'nubs';
  344.  
  345.     gestaltOpenFirmwareInfo        = 'opfw';
  346.  
  347.     gestaltOSAttr                = 'os  ';                        { o/s attributes }
  348.     gestaltSysZoneGrowable        = 0;                            { system heap is growable }
  349.     gestaltLaunchCanReturn        = 1;                            { can return from launch }
  350.     gestaltLaunchFullFileSpec    = 2;                            { can launch from full file spec }
  351.     gestaltLaunchControl        = 3;                            { launch control support available }
  352.     gestaltTempMemSupport        = 4;                            { temp memory support }
  353.     gestaltRealTempMemory        = 5;                            { temp memory handles are real }
  354.     gestaltTempMemTracked        = 6;                            { temporary memory handles are tracked }
  355.     gestaltIPCSupport            = 7;                            { IPC support is present }
  356.     gestaltSysDebuggerSupport    = 8;                            { system debugger support is present }
  357.  
  358.     gestaltOSTable                = 'ostt';
  359.  
  360.     gestaltPCXAttr                = 'pcxg';                        { PC Exchange attributes }
  361.     gestaltPCXHas8and16BitFAT    = 0;                            { PC Exchange supports both 8 and 16 bit FATs }
  362.     gestaltPCXHasProDOS            = 1;                            { PC Exchange supports ProDOS }
  363.  
  364.     gestaltLogicalPageSize        = 'pgsz';
  365.  
  366.     gestaltPopupAttr            = 'pop!';                        { popup cdef attributes }
  367.     gestaltPopupPresent            = 0;
  368.  
  369.     gestaltPowerMgrAttr            = 'powr';                        { power manager attributes }
  370.     gestaltPMgrExists            = 0;
  371.     gestaltPMgrCPUIdle            = 1;
  372.     gestaltPMgrSCC                = 2;
  373.     gestaltPMgrSound            = 3;
  374.     gestaltPMgrDispatchExists    = 4;
  375.  
  376. {
  377.  * PPC will return the combination of following bit fields.
  378.  * e.g. gestaltPPCSupportsRealTime +gestaltPPCSupportsIncoming + gestaltPPCSupportsOutGoing
  379.  * indicates PPC is cuurently is only supports real time delivery
  380.  * and both incoming and outgoing network sessions are allowed.
  381.  * By default local real time delivery is supported as long as PPCInit has been called.}
  382.     gestaltPPCToolboxAttr        = 'ppc ';                        { PPC toolbox attributes }
  383.     gestaltPPCToolboxPresent    = $0000;                        { PPC Toolbox is present  Requires PPCInit to be called }
  384.     gestaltPPCSupportsRealTime    = $1000;                        { PPC Supports real-time delivery }
  385.     gestaltPPCSupportsIncoming    = $0001;                        { PPC will deny incoming network requests }
  386.     gestaltPPCSupportsOutGoing    = $0002;                        { PPC will deny outgoing network requests }
  387.  
  388.     gestaltProcessorType        = 'proc';                        { processor type }
  389.     gestalt68000                = 1;
  390.     gestalt68010                = 2;
  391.     gestalt68020                = 3;
  392.     gestalt68030                = 4;
  393.     gestalt68040                = 5;
  394.  
  395.     gestaltParityAttr            = 'prty';                        { parity attributes }
  396.     gestaltHasParityCapability    = 0;                            { has ability to check parity }
  397.     gestaltParityEnabled        = 1;                            { parity checking enabled }
  398.  
  399.     gestaltQuickdrawVersion        = 'qd  ';                        { quickdraw version }
  400.     gestaltOriginalQD            = $000;                            { original 1-bit QD }
  401.     gestalt8BitQD                = $100;                            { 8-bit color QD }
  402.     gestalt32BitQD                = $200;                            { 32-bit color QD }
  403.     gestalt32BitQD11            = $201;                            { 32-bit color QDv1.1 }
  404.     gestalt32BitQD12            = $220;                            { 32-bit color QDv1.2 }
  405.     gestalt32BitQD13            = $230;                            { 32-bit color QDv1.3 }
  406.  
  407.     gestaltQuickdrawFeatures    = 'qdrw';                        { quickdraw features }
  408.     gestaltHasColor                = 0;                            { color quickdraw present }
  409.     gestaltHasDeepGWorlds        = 1;                            { GWorlds can be deeper than 1-bit }
  410.     gestaltHasDirectPixMaps        = 2;                            { PixMaps can be direct (16 or 32 bit) }
  411.     gestaltHasGrayishTextOr        = 3;                            { supports text mode grayishTextOr }
  412.     gestaltSupportsMirroring    = 4;                            { Supports video mirroring via the Display Manager. }
  413.  
  414.     gestaltQuickTimeVersion        = 'qtim';                        { returns version of QuickTime }
  415.     gestaltQuickTime            = 'qtim';
  416.  
  417.     gestaltQuickTimeFeatures    = 'qtrs';
  418.     gestaltPPCQuickTimeLibPresent = 0;                            { PowerPC QuickTime glue library is present }
  419.  
  420.     gestaltPhysicalRAMSize        = 'ram ';
  421.  
  422.     gestaltRBVAddr                = 'rbv ';
  423.  
  424.     gestaltROMSize                = 'rom ';
  425.  
  426.     gestaltROMVersion            = 'romv';
  427.  
  428.     gestaltResourceMgrAttr        = 'rsrc';                        { Resource Mgr attributes }
  429.     gestaltPartialRsrcs            = 0;                            { True if partial resources exist }
  430.  
  431.     gestaltRealtimeMgrAttr        = 'rtmr';                        { Realtime manager attributes            }
  432.     gestaltRealtimeMgrPresent    = 0;                            { true if the Realtime manager is present     }
  433.  
  434.     gestaltSCCReadAddr            = 'sccr';
  435.  
  436.     gestaltSCCWriteAddr            = 'sccw';
  437.  
  438.     gestaltScrapMgrAttr            = 'scra';                        { Scrap Manager attributes }
  439.     gestaltScrapMgrTranslationAware = 0;                        { True if scrap manager is translation aware }
  440.  
  441.     gestaltScriptMgrVersion        = 'scri';
  442.  
  443.     gestaltScriptCount            = 'scr#';
  444.  
  445.     gestaltSCSI                    = 'scsi';                        { SCSI Manager attributes }
  446.     gestaltAsyncSCSI            = 0;                            { Supports Asynchronous SCSI }
  447.     gestaltAsyncSCSIINROM        = 1;                            { Async scsi is in ROM (available for booting) }
  448.     gestaltSCSISlotBoot            = 2;                            { ROM supports Slot-style PRAM for SCSI boots (PDM and later) }
  449.  
  450.     gestaltControlStripAttr        = 'sdev';                        { Control Strip attributes }
  451.     gestaltControlStripExists    = 0;                            { Control Strip is installed }
  452.     gestaltControlStripVersionFixed = 1;                        { Control Strip version Gestalt selector was fixed }
  453.     gestaltControlStripUserFont    = 2;                            { supports user-selectable font/size }
  454.     gestaltControlStripUserHotKey = 3;                            { support user-selectable hot key to show/hide the window }
  455.  
  456.     gestaltSerialAttr            = 'ser ';                        { Serial attributes }
  457.     gestaltHasGPIaToDCDa        = 0;                            { GPIa connected to DCDa}
  458.     gestaltHasGPIaToRTxCa        = 1;                            { GPIa connected to RTxCa clock input}
  459.     gestaltHasGPIbToDCDb        = 2;                            { GPIb connected to DCDb }
  460.  
  461.     gestaltNuBusConnectors        = 'sltc';
  462.  
  463.     gestaltSlotAttr                = 'slot';                        { slot attributes  }
  464.     gestaltSlotMgrExists        = 0;                            { true is slot mgr exists  }
  465.     gestaltNuBusPresent            = 1;                            { NuBus slots are present  }
  466.     gestaltSESlotPresent        = 2;                            { SE PDS slot present  }
  467.     gestaltSE30SlotPresent        = 3;                            { SE/30 slot present  }
  468.     gestaltPortableSlotPresent    = 4;                            { Portable’s slot present  }
  469.  
  470.     gestaltFirstSlotNumber        = 'slt1';
  471.  
  472.     gestaltSoundAttr            = 'snd ';                        { sound attributes }
  473.     gestaltStereoCapability        = 0;                            { sound hardware has stereo capability }
  474.     gestaltStereoMixing            = 1;                            { stereo mixing on external speaker }
  475.     gestaltSoundIOMgrPresent    = 3;                            { The Sound I/O Manager is present }
  476.     gestaltBuiltInSoundInput    = 4;                            { built-in Sound Input hardware is present }
  477.     gestaltHasSoundInputDevice    = 5;                            { Sound Input device available }
  478.     gestaltPlayAndRecord        = 6;                            { built-in hardware can play and record simultaneously }
  479.     gestalt16BitSoundIO            = 7;                            { sound hardware can play and record 16-bit samples }
  480.     gestaltStereoInput            = 8;                            { sound hardware can record stereo }
  481.     gestaltLineLevelInput        = 9;                            { sound input port requires line level }
  482. { the following bits are not defined prior to Sound Mgr 3.0 }
  483.     gestaltSndPlayDoubleBuffer    = 10;                            { SndPlayDoubleBuffer available, set by Sound Mgr 3.0 and later }
  484.     gestaltMultiChannels        = 11;                            { multiple channel support, set by Sound Mgr 3.0 and later }
  485.     gestalt16BitAudioSupport    = 12;                            { 16 bit audio data supported, set by Sound Mgr 3.0 and later }
  486.  
  487.     gestaltStandardFileAttr        = 'stdf';                        { Standard File attributes }
  488.     gestaltStandardFile58        = 0;                            { True if selectors 5-8 (StandardPutFile-CustomGetFile) are supported }
  489.     gestaltStandardFileTranslationAware = 1;                    { True if standard file is translation manager aware }
  490.     gestaltStandardFileHasColorIcons = 2;                        { True if standard file has 16x16 color icons }
  491.     gestaltStandardFileUseGenericIcons = 3;                        { Standard file LDEF to use only the system generic icons if true }
  492.     gestaltStandardFileHasDynamicVolumeAllocation = 4;            { True if standard file supports more than 20 volumes }
  493.  
  494.     gestaltSysArchitecture        = 'sysa';                        { Native System Architecture }
  495.     gestalt68k                    = 1;                            { Motorola MC68k architecture }
  496.     gestaltPowerPC                = 2;                            { IBM PowerPC architecture }
  497.  
  498.     gestaltSystemVersion        = 'sysv';
  499.  
  500.     gestaltTSMgrVersion            = 'tsmv';                        { Text Services Mgr version, if present }
  501.     gestaltTSMgr2                = $200;
  502.  
  503.     gestaltTSMgrAttr            = 'tsma';                        { Text Services Mgr attributes, if present }
  504.     gestaltTSMDisplayMgrAwareBit = 0;                            { TSM knows about display manager }
  505.     gestaltTSMdoesTSMTEBit        = 1;                            { TSM has integrated TSMTE }
  506.  
  507.     gestaltTSMTEVersion            = 'tmTV';
  508.     gestaltTSMTE1                = $100;
  509.     gestaltTSMTE2                = $200;
  510.  
  511.     gestaltTSMTEAttr            = 'tmTE';
  512.     gestaltTSMTEPresent            = 0;
  513.     gestaltTSMTE                = 0;                            { gestaltTSMTE is old name for gestaltTSMTEPresent }
  514.  
  515.     gestaltTextEditVersion        = 'te  ';                        { TextEdit version number }
  516.     gestaltTE1                    = 1;                            { TextEdit in MacIIci ROM }
  517.     gestaltTE2                    = 2;                            { TextEdit with 6.0.4 Script Systems on MacIIci (Script bug fixes for MacIIci) }
  518.     gestaltTE3                    = 3;                            { TextEdit with 6.0.4 Script Systems all but MacIIci }
  519.     gestaltTE4                    = 4;                            { TextEdit in System 7.0 }
  520.     gestaltTE5                    = 5;                            { TextWidthHook available in TextEdit }
  521.     gestaltTE6                    = 6;                            { TextEdit in System 8.0 }
  522.  
  523.     gestaltTEAttr                = 'teat';                        { TextEdit attributes }
  524.     gestaltTEHasGetHiliteRgn    = 0;                            { TextEdit has TEGetHiliteRgn }
  525.     gestaltTESupportsInlineInput = 1;                            { TextEdit does Inline Input }
  526.     gestaltTESupportsTextObjects = 2;                            { TextEdit does Text Objects }
  527.  
  528.     gestaltTeleMgrAttr            = 'tele';                        { Telephone manager attributes }
  529.     gestaltTeleMgrPresent        = 0;
  530.     gestaltTeleMgrPowerPCSupport = 1;
  531.     gestaltTeleMgrSoundStreams    = 2;
  532.     gestaltTeleMgrAutoAnswer    = 3;
  533.     gestaltTeleMgrIndHandset    = 4;
  534.     gestaltTeleMgrSilenceDetect    = 5;
  535.     gestaltTeleMgrNewTELNewSupport = 6;
  536.  
  537.     gestaltTermMgrAttr            = 'term';                        { terminal mgr attributes }
  538.     gestaltTermMgrPresent        = 0;
  539.     gestaltTermMgrErrorString    = 2;
  540.  
  541.     gestaltTimeMgrVersion        = 'tmgr';                        { time mgr version }
  542.     gestaltStandardTimeMgr        = 1;                            { standard time mgr is present }
  543.     gestaltRevisedTimeMgr        = 2;                            { revised time mgr is present }
  544.     gestaltExtendedTimeMgr        = 3;                            { extended time mgr is present }
  545.  
  546.     gestaltSpeechAttr            = 'ttsc';                        { Speech Manager attributes }
  547.     gestaltSpeechMgrPresent        = 0;                            { bit set indicates that Speech Manager exists }
  548.     gestaltSpeechHasPPCGlue        = 1;                            { bit set indicates that native PPC glue for Speech Manager API exists }
  549.  
  550.     gestaltToolboxTable            = 'tbtt';
  551.  
  552.     gestaltThreadMgrAttr        = 'thds';                        { Thread Manager attributes }
  553.     gestaltThreadMgrPresent        = 0;                            { bit true if Thread Mgr is present }
  554.     gestaltSpecificMatchSupport    = 1;                            { bit true if Thread Mgr supports exact match creation option }
  555.     gestaltThreadsLibraryPresent = 2;                            { bit true if Thread Mgr shared library is present }
  556.  
  557.     gestaltTVAttr                = 'tv  ';                        { TV version                                        <EX16>     }
  558.     gestaltHasTVTuner            = 0;                            { supports Philips FL1236F video tuner                <EX16>     }
  559.     gestaltHasSoundFader        = 1;                            { supports Philips TEA6330 Sound Fader chip        <EX16>     }
  560.     gestaltHasHWClosedCaptioning = 2;                            { supports Philips SAA5252 Closed Captioning        <EX16>     }
  561.     gestaltHasIRRemote            = 3;                            { supports CyclopsII Infra Red Remote control        <EX16>     }
  562.     gestaltHasVidDecoderScaler    = 4;                            { supports Philips SAA7194 Video Decoder/Scaler    <EX16>     }
  563.     gestaltHasStereoDecoder        = 5;                            { supports Sony SBX1637A-01 stereo decoder            <EX16>     }
  564.  
  565.     gestaltVersion                = 'vers';                        { gestalt version }
  566.     gestaltValueImplementedVers    = 5;                            { version of gestalt where gestaltValue is implemented. }
  567.  
  568.     gestaltVIA1Addr                = 'via1';
  569.  
  570.     gestaltVIA2Addr                = 'via2';
  571.  
  572.     gestaltVMAttr                = 'vm  ';                        { virtual memory attributes }
  573.     gestaltVMPresent            = 0;                            { true if virtual memory is present }
  574.  
  575.     gestaltTranslationAttr        = 'xlat';                        { Translation Manager attributes }
  576.     gestaltTranslationMgrExists    = 0;                            { True if translation manager exists }
  577.     gestaltTranslationMgrHintOrder = 1;                            { True if hint order reversal in effect }
  578.     gestaltTranslationPPCAvail    = 2;
  579.     gestaltTranslationGetPathAPIAvail = 3;
  580.  
  581.     gestaltExtToolboxTable        = 'xttt';
  582.  
  583. TYPE
  584.     SelectorFunctionProcPtr = ProcPtr;  { FUNCTION SelectorFunction(selector: OSType; VAR response: LONGINT): OSErr; }
  585.     SelectorFunctionUPP = UniversalProcPtr;
  586.  
  587. CONST
  588.     uppSelectorFunctionProcInfo = $000003E0; { FUNCTION (4 byte param, 4 byte param): 2 byte result; }
  589.  
  590. FUNCTION NewSelectorFunctionProc(userRoutine: SelectorFunctionProcPtr): SelectorFunctionUPP;
  591.     {$IFC NOT GENERATINGCFM }
  592.     INLINE $2E9F;
  593.     {$ENDC}
  594.  
  595. FUNCTION CallSelectorFunctionProc(selector: OSType; VAR response: LONGINT; userRoutine: SelectorFunctionUPP): OSErr;
  596.     {$IFC NOT GENERATINGCFM}
  597.     INLINE $205F, $4E90;
  598.     {$ENDC}
  599. {$IFC SystemSevenOrLater }
  600.  
  601. FUNCTION Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
  602.     {$IFC NOT GENERATINGCFM}
  603.     INLINE $225F, $201F, $A1AD, $2288, $3E80;
  604.     {$ENDC}
  605. FUNCTION ReplaceGestalt(selector: OSType; gestaltFunction: SelectorFunctionUPP; VAR oldGestaltFunction: SelectorFunctionUPP): OSErr;
  606.     {$IFC NOT GENERATINGCFM}
  607.     INLINE $225F, $205F, $201F, $2F09, $A5AD, $225F, $2288, $3E80;
  608.     {$ENDC}
  609. FUNCTION NewGestalt(selector: OSType; gestaltFunction: SelectorFunctionUPP): OSErr;
  610.     {$IFC NOT GENERATINGCFM}
  611.     INLINE $205F, $201F, $A3AD, $3E80;
  612.     {$ENDC}
  613. {$ELSEC}
  614.  
  615. FUNCTION Gestalt(selector: OSType; VAR response: LONGINT): OSErr;
  616. FUNCTION NewGestalt(selector: OSType; gestaltFunction: SelectorFunctionUPP): OSErr;
  617. FUNCTION ReplaceGestalt(selector: OSType; gestaltFunction: SelectorFunctionUPP; VAR oldGestaltFunction: SelectorFunctionUPP): OSErr;
  618. {$ENDC}
  619. {$IFC SystemSevenFiveOrLater }
  620. { These functions are built into System 7.5, but not on earlier systems }
  621. FUNCTION NewGestaltValue(selector: OSType; newValue: LONGINT): OSErr;
  622.     {$IFC NOT GENERATINGCFM}
  623.     INLINE $303C, $0401, $ABF1;
  624.     {$ENDC}
  625. FUNCTION ReplaceGestaltValue(selector: OSType; replacementValue: LONGINT): OSErr;
  626.     {$IFC NOT GENERATINGCFM}
  627.     INLINE $303C, $0402, $ABF1;
  628.     {$ENDC}
  629. FUNCTION SetGestaltValue(selector: OSType; newValue: LONGINT): OSErr;
  630.     {$IFC NOT GENERATINGCFM}
  631.     INLINE $303C, $0404, $ABF1;
  632.     {$ENDC}
  633. FUNCTION DeleteGestaltValue(selector: OSType): OSErr;
  634.     {$IFC NOT GENERATINGCFM}
  635.     INLINE $303C, $0203, $ABF1;
  636.     {$ENDC}
  637. {$ELSEC}
  638. {$ENDC}
  639.  
  640. { $ALIGN RESET}
  641. { $POP}
  642.  
  643. {$ENDC} {__GESTALTEQU__}
  644.  
  645.  IMPLEMENTATION
  646.  END.
  647.  
  648.